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COPYSEMAN 18.03 1984 23:4 AX-11 Bliss-32 V4.0-742 Page 1. 
14- ~8ep-1984 3: 12: % YCOPY. SRCICOPYSEMAN. B32;1 ° (1) 
MODULE copyseman ( f input/output spec combinations for COPY command | 


BEGIN 


' 
LRA REAR RRA EEA ARAERAAAA RA AA EERE EEE AEA EERE AERA EAA ERAARRA ARES 
' 


$ 1 0001 

; § 0008 

; 4 0004 

: 5 B80? 1 

; 6 B06 1 

3 7 00 1 

; 8 0008 1 

3 9 0009 1 !* * 
; 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \¢ 4 ¢ : = ALL RIGHTS RESERVED. * 
° 3 ea 
+4 14 0014 1 ! te i “ietin aS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh ht * 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; % Be 6 1! INCLUSION OF THE ABOVE Spl i NOTICE. THIS soft WARE OR ANY OTHER * 
3 17 017 1 i® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: id : :* TRANSFERRED. * 
4 : ® ® 
: 21 0021 1 !« bh | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 22 bos¢ 1 i SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $7 Onsz : * CORPORATION. * 
3 '® ® 
: 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; @& 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
s ae 0027 1 !* * 
;- 0028 1 !* * 
3 $3 94 1 Vee RARER REAR RAE AEE 
3 0 0030 1 

5 5 0031 1 !+4+ 

.- = 0032 1 ! FACILITY: COPY Command 

. ae 0033 1! 

: 34 0034 1 ! ABSTRACT: 

ae || 0035 1! 

3 36 0036 1! This module contains a decision table that Lists combinations of valid 
3 37 0037 1! and invalid specifications to the COPY command, and associated semantic 
; 38 0038 1! actions. Also contained is a routine that sets bits in the COPY status 
; 44 sit ! words and and values in RMS data blocks that cause these semantic actions to occur. 
3s «(41 0041 1 ! ENVIRONMENT: 

“re 0042 1! 

; «643 0045 1! VAX/VMS epereting system, unprivileged user mode utility, 

; 644 044 1! operates at non-AST level. 

s 5 045 1! 

s 6 046 1 !-- 

ae, 047 1 !e¢4 

: 48 048 1! ; 

3 $3 Opee ! AUTHOR: Carol Peters, CREATION DATE: 19 April 1978 19:31 

3 51 051 1 ! REVISION HISTORY: 

3 26 O26 > 

;. > 053 1! v03-002 TSK0002 Tamar Krichevsky 7-F Feb=85 

; 56 054 1! Move external declarations from COPY.REQ one t 

: 55 B23? 1! names for the offsets in COPYSCLI _STATUS SF MeOBYSSEM” S arise to 
2 29 Bne$ ' } facilitate using the new CLI. 
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v03-001 TSK0001 


Explicit input version numbers 5s 


13 
1$-Sep-1986 25:42:04 


Tamar Krichevsky 


output file specification is wild. 


v02-003 wMC0003 


v02-002 Pore. 


lways maximize version number wh 
an explicit output version was specified 


Wayne Cardoza 3-Nov-1981 


Wayne Cardoza 2-Nov-1981 
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16-Mar-82 
hould be preserved if the 
en concatenating files unless 


xplicit input versions should preserve version numbers if 
no output file spec is specified. 
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COPY SEMAN 1.53 1984 23:42:04 AX-11 Bliss-32 V4.0-742 Page 3 
v04~000 12286-1984 $3:42:95 COPY. SRCJCOPYSEMAN.832;1 ¥ (2) 
aes 070 1! 
3 Me 071 1 ! Table of Contents 
; £ ore 1! 
; £ 075 1 FORWARD ROUTINE 
3 p Bnee : copy$semantics; ! Determines the semantics of a COPY command 
; ogg B078 ,! 
; £8 0077 1! Include files 
; 0078 1! 
; 0079 1 
; 0080 1 LIBRARY ‘SYSSLIBRARY:STARLET.L32'; ! Common VAX/VMS definitions 
: : ote. : REQUIRE "SRC$:COPYMSG.REQ'; ! Definition of macros to SIGNAL a message 
>; 84 0168 1! 
; 0164 1 ! Global variables 
>; 0165 1! 
; 0166 1 
; 88 0167 1! : 
; 0168 1 ! Own variables 
;-. 0169 1! 
; 0170 1 
; 0171 1! 
; ¥F b178 1 ! Macros 
; © 01735 1! 
; 0174 1 MACRO 
; M0175 1 or_op (x) (J = ! OR operator to be used in iterative macro. 
> WwW 0176 1 R i, 
; 0177 1 2 
; 299 m0178 1 stored_mask (x) (] = ! Makes a mask of named bit numbers. 
: 100 0179 1 1 * (x) orlop (ZREMAINING) stored_mask (ZREMAINING) 2%; 
: 101 0180 1 
: 102 0181 1! 
: 103 bias 1 ! Equated symbols 
3: 104 0185 1! 
3. 105 0184 1 LITERAL 
: 106 0185 1 mask_value = 0, ! Mask value in decision table entry. 
3; 107 0186 1 action_value = 1, ! Action Label in decision table entry | 
5 3 34 14 ' next_entry 2 ! Next entry in decision table 
; 110 0189 1 mul quiet_stip = 0, ! Create multiple files, match versions, slip quietl | 
, vy 0190 1 mulfiple_ Slip = 1, ! Create multiple files, match versions, report slip | 
3 Viz 0191 #1 mul tiple_max = ¢- : Create multiple files, maximize version numbers 
s 315 b198 1 max_or_new = 3, ! Maximize or use new version number 
; 114 B19 1 concat_slip = 4, ! Concatenate input files, slip version numbers 
s 95 194 1 error_spec = 5, ! Error in combination of input and output specs 
: 116 0195 1 no_acftion = 6; ! No action to take 
3 (117 9196 1 
3 118 0197 1! 
3 119 198 1 ! External variables 
; 120 199 1! 
: 1$1 $e 1 EXTERNAL 
. § 01 1 copy$cli_status : S$BBLOCK, ! Command Line parse results | 
: \¢? 8 : copy$sem_status : S$BBLOCK ! Status of input and output fiels 
3 135 4 1 
: 126 5 1 REQUIRE 
s tar 6 1 *SRC$:COPY.REQ' 


$-32 V4.0-742 


Pd 
. 

~ 
Al 
@ 

. 

2 

<= 
= 
us 
ee) 

a 

a 
oO 
Wvo 
-— 
ad 
”" 
-_ e 
-> 
a 
oO 
Y 
>w 


AX- 


| 13 | 
YSEMAN 15-Sep-1984 23:42: VAX=11 Bliss-32_v4.0-742 Page 5! 
v0e~-060 1B-fep- 1984 33:28:03 — “A¥stb Bases tzbpy shcusmac.reas1 29° «13. 
; XPRINT: File: VMSMAC.B32, Version V04-000, Edit 1, WWC, 09-JAN-1978 | 


en 


13 | 
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Ose | 1 EXTERNAL BOUT INE 
1 copy$inopn_err; ! Reports an error resulting from an OPEN of an inpu 


Ah 15-Sep-1984 93:40:08 AX-11 Bliss-32 V4.0-742 
vO4= 14-Sep-1984 12:14:19 COPY. SRCICOPYSEMAN.B32; 1 


133 665 


» stored_mask (wild_inp_ver_bit, no_output_spec_bit), mul_quiet_slip 


Rule 4 


SOoooeo 
MEW — 


Specification of both input wildcard version number and output wildcard version number 
quietly allows output files to be created whose version numbers are lower than those of 
existing files. Input version numbers are matched if possible. Overwrites usually fail. 


S& 


» stored_mask (wild_inp_ver_bit, wild_out_ver_bit), mul_quiet_slip 


Rule 5: 
A wildcard output version number produces matching version numbers and warnings 
if an attempt is made to create an output file whose version number is lower 
than that of an existing file. 


- stored_mask (wild_out_ver_bit), multiple slip 


: 1! 

. * 666 1 ! The decision table below, DECISION TABLE, is made up of two WORD entries, of 

8 IS ¢9 1 ! which the first word is a mask of Bit settings, and’ the second is a case label 

: : re : : associated with the mask. 

; 138 670 1: Bit 0 16 31 

3 139 71 1 ' m—menmaecnroeane OR Se ee eo 

BiG hk | es errs gprs 

3 : H mas H action H 

; re 7% «1! : : ' 

3 rt of? : es ee Sete mee Samer ewananunaema ma Se ee eo ee 

: 6145 ig 1 

: 403 Bp | oe cteton_tabi UPLIT WORD 

s ecision_table = 

; «148 bees 1 ( 

3 «6149 681 1 

3 199 0682 1! 

s 951 0685 1 ! Rule 1: 

; 136 set ; Explicit wildcard output fields specified with the /CONCATENATE qualifier is an error. 
3 138 gone : stored_mask (wild_input_bit, wild_output_bit, concat_qual_bit), error_spec 
> 156 0688 1! 

. Ver 0689 1 ! Rule 2: 

; 158 0690 1! Specification of the /CONCATENATE qualifier with an output specification that contains no 
3 122 oes } } explicit name, type, and version number fields is an error. 

: 161 0693 1 « stored_mask (concat_qual_bit, no_output_spec_bit), error_spec 

, 6 0695 1! 

> 164 0696 1 ! Rule 3: 

3 6165 0697 1! A wildcard input version number specified with an output specification that contains no 
3; 166 0698 1! explicit name, type, and version number fields causes output files to be created whose 
; 4 345 : version numbers may be lower than those of existing files. 

: 169 1 

: 170 1 

3; «171 1 

; 176 1 

3; 17 1 

3: 174 1 

3; «6175 4 

3 178 i 

3; 17 1 

3; 178 1 

3; 179 1 

; 180 1 

att 

. 7 g 1 

-. 3 1 

3; «185 1 

» ¥ 1 

3; (1 1 

.% 1 

s 1 1 
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' Rule 6: 
: A wildcard input version number specified with wildcard output fields (but not wildcard 
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190 : output version number field) causes a er to be reported if an attempt is made to 
133 create an output file with a version number lower than that of an existing file. 

138 » Stored_mask (wild_inp_ver_bit, wild_output_bit), multiple_slip 

1 ! 

1 ' Rule 7: 

1 ! Wildcard output fields and explicit wildcard version number field causes multiple 

1 ‘ files to be created, and a —— to be reported if an attempt is made to create 

1 } an output file with a version number lower than that of an existing file. 


- stored_mask (wild_output_bit, exp_out_ver_bit), multiple_slip 


4 

‘Rule 7a: 

: Explicit input versions and no output spec should cause multiple files 

; to be created with a warning to be reported if an attempt is made to create 
an output file with a version number lower than that of an existing file. 


» stored_mask (exp_inp_ver_bit, no_output_spec_bit), multiple_slip 


] 
'Rule 7b: 

: Explicit input versions and wild output spec should cause multiple files 

: to be created with a warning to be reported if an attempt is made to create 
an output file with a version number lower than that of an existing file. 


» stored_mask (exp_inp_ver_bit, wild_output_bit), multiple_slip 


] 
i Rule 8: 

! Wildcard output fields (but not wildcard output version number field) causes a warning 
to be reported if an attempt is made to create an output file with a version number 

] 


lower than that of an existing file. Output version numbers are maximized. 
» stored_mask (wild_output_bit), multiple_max 
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Rule 9 


rrr 


Absence of output file name, type, and version number specification always cause 
no concatenation and maximized version numbers. 


SS 
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4 » stored_mask (no_output_spec_bit), multiple_max 
: ; 
' Rule 10: 

5 : An explicit output version number creates a concatenated output file whose version number 
<9 4 : } may be lower than that of an existing file. 

3 776 : - stored_mask (exp_out_ver_bit), concat_slip 
40 77 ! 
41 77 ' Rule 11: . 
4 774 ! An explicit input version number specified with no explicit output version number (wildcard 
4 775 : or otherwise) greates a@ concatenated output file with a maximized or new version number 
“8 vy : there are multiple input files. Preserve version number for a single input file. 

46 778 1— , stored_mask (exp_inp_ver_bit, multiple_input_bit), max_or_new 


VSEMAN 13-Sep-1984 23:42:04 YAX-11 BL iss~32 v4,0-742 Page 91 
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: 247 779 #1 ; Br nocaet —. (wild input_bit), max_or_new 
> 248 reo 1 no_ac 
> 249 781 «1 
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2} 7 ¢ GLOBAL ROUTINE copy$semantics (status, input_fab, output_fab) = 
§ f 2 T Chooses semantics for COPY command 
4 785 ++ 
5 f § Functional description: 
5 788 This routine consults a decision table (DECISION_TABLE) to decide 
3 138 the appropriate semantics for a given input/output specification pair. 
60 791 The status passed as an input parameter is compared with various mask 
61 15 settings in the decision table. If an item in the decision table matches 
tas, the status, then an associated action is taken. 
64 0795 Actions set or turn off status bits, and/or write values to fields in 
65 736 the output FAB, NAM, and XAB blocks. 
e§ 8 Calli 
alling sequence: 
68 0799 — 
$3 pene copy$semantics (status.ra, input_fab.ra, output_fab.ra) 
71 80 Input parameters 
? 080 miatas 
7 0804 status - address of a status word 
74 0805 input_fab - address of the FAB associated with the current input file 
i pane output_ fab - address of the FAB associated with the current output file 
77 0808 Implicit inputs 
78 0809 “ 2 
Le 0810 The NAM and XAB blocks associated with the input and output FABs. 


Output parameters 
none 
Implicit outputs 
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Bits that may be written in the status word include the following: 
Fields in the NAM blocks that may be written include the following: 
Fields in the XAB blocks that may be written include the following: 
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' 
i 
' 
' 
' 
i 
i 
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i 
i 
i 
i 
; Routine value 
i 

i 

i 

i 

i 

i 

1 
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OK = success 
ERROR - error in combination of input and output specifications 
Side effects 
none 
BEGIN 
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P 
status : REF VECTOR C, WORD), ! Pointer to the status word 
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COPYSEMAN 15-Se $1984 23:42:04 AX-11 Bliss-32 V4.0-742 Page 11 
706-000 12-80-1384 93:42:95 COPY. SRCICOPYSEMAN.B32;1 ; . (4) | 
; 308 3 input_fab : REF BLOCK [, BYTE). ! Input FAB block | 
: 4 ase output. fab : REF BLOCK f: BYTED: ; Output FAB block 
: 311 084g LOCAL ! 
3 \§ Me decis_tbl_ptr : REF VECTOR C, WORD]; ! Pointer to current entry in DECISION_TABLE. 
: 314 45 2! | 
° i 
: 1g Ose? Set up a pointer to the first entry in the decision table. | 
3 18 38 decis_tbl_ptr = decision_table; ! The address of the table addresses the first entry 
; 320 ' | 
; ; $826 ; Start out without maximized file versions. 
i 358 0854 2 | 
3 3% 0855 output_fab Cfab$v_mxv] = FALSE; | 
: 5 0856 
> 326 0857 ! | 
3 6USer 0858 ! Iteratively move through the decision table. For each entry, see if all the bits set 
; 328 0859 ! in the mask are also set in the status word. If they are, exit from the | 
; $3 gare : loop with the decision table pointer pointing to that entry. 
; Hi Oae If no masks match the status word, return from this routine with an error status code. | 
: 335 0864 | 
3 <e pace WHILE 1 0 ! Loop once for each entry in the decision table. | 
; 3 0867 4 IF (.status CO] AND -decis_rbl_ptr Cmask_value])! If the bits in the mask are also set in 
; 7 te nen EQL .decis_tbl_ptr Cmask_value] : the status word, 
; 33 Bang EXITLOOP ! then exit from this comparing Loop. | 
: 341 087 decis_tbl_ptr = decis_tbl_ptr Cnext_entry]; ! Otherwise, move to the next table entry. 
; =0§ th IF .decis_tbl_ptr Cmask_value] EQL 0 ! If this entry is null, | 
3 344 0875 EXITLOOP; : then per tore associated null action. 
3 é 0877 END; ' Else go through the loop again. | 
: 34 878 2! | 
3 m1 + +44 ; Now take the action associated with the matched mask value. 
; 350 0881 2 | 
3; 351 o8 § CASE .decis tbl_ptr Caction_value] ! This case statement performs the appropriate 
; 26 88 FROM mul_quiet_slip TO no_action OF ' action routine. 
3; 2 0884 | 
3 22 +H SET | 
; 26 a9 Caul quietstip2: ! Multiple output files, slip version numbers silent | 
; 358 } multiple_output = TRUE; ' Set the flag indicating multiple output | 
3 359 90 quiet_sl ip = TRUE; : and slip versions without reporting them. 
: : 83 ND; : files are to be created. | 
; : 94, Cul siete .st ipl: ! Multiple output files, slip version numbers and re. 
; 95 BEGIN 


tac al tr cece AS Naa enc eta 
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t; 


| 
: 5 96 multiple_output = TRUE; Set the flag indicating multiple output. 
; 9 END; 
: ; | 
: ane Coul tiptoe ments ! Multiple output files, maximize version numbers. 
; O08 multiple_output = TRUE; ’ Set the flag yeni that multiple output 
3 st ! files are to be created. 
3 output_fab Cfab$Sv_mxvJ] = TRUE; : Set a bit in the output FAB that causes version | 
; 905 ! numbers to be maximized. 
; 8308 END; | 
; 0908 | 
: 0909 Cmax_or_new]: ! Concatenate and maximize | 
; 379 910 BEGIN 
3 0 0911 concat_follows = TRUE; } Set flag saying that concatenating files. | 
; 381 bag output_fab Cfab$v_mxv) = TRUE; } Set a bit in the output FAB that causes version 
> 38 091 ; numbers to be maximized. 
; = 0914 END; 
: Spe O16 
; $09 0317 Cconcat sl ipd: ! Concatenate and slip version numbers. 
; 388 0919 concat_follows = TRUE; : Set flag saying that concatenating files. 
3; 389 0920 2 END; 
: Sor 0952 
: 4 0958 Cerror specs: ! Error in spec combination. 
; 39 bose BEG! 
3; 394 0925 put message (msg$_wildconcat, 99); ! Report fatal error. 
3; 35 0926 ETORN error; ! Return an error code. 
: 396 0927 3 
: 398 0999 | 
; +44 Boss 5 Cno_ action): ! No action to take. 
Py ' 
; 401 093 concat_follows = TRUE; : Set flag saying that concatenating files. 
; 40 093 END; 
: 404 0935 TES; 
Be BES 
; ri 4 a4 : Some special case to handle the /NOCONCATENATE qualifer when it is explicitly specified. | 
: 409 940 2 | 
; $10 941 IF_.negated_concat_qual ! If the /NOCONCATENATE qualifier was explicitly 
: ai] Bae§ ag ! specified, | 
; 
3 413 bore multiple _output = TRUE; } then note that multiple files are to be produce 
3 414 945 concat_follows = FALSE; ; and turn off concatenation. 
3 6415 rg | END; 
oe BES 
: 418 94 i Test for more error conditions. Files with relative, indexed, and hashed organizations 
3; 419 950 ! cannot be concatenated with other files. 
: $30 951 ! 
; 421 952 
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vo0-000 Va-seb-19RG f2ites19 — Kedpy SRELEOPYSEMANCBSosT a) 
; 4 ¢ 953 If NOT .multiple_output ! If multiple output files are not being created, 
$ : Z H ¢ sag Oe : then concatenation or single file COPY is occur 
> 425 B28 IF .outfile open OR ' If an output file is open, we must be appending. 
: 486 95 -multiple_input OR i if more than one input file is specified, COPY | 
; 4 928 : tries to append. 
; 428 9 -wilid_input OR } ogeta multiple input files; 
; 429 0960 - appiend_command ; the APPEND command always concatenates. 
; 430 349 THEN ! This sort of COPY is only allowed if file 
> 431 306 4 BEGIN ! organization is a simple one. 
3; 4 ; 0965 4 If .input_fab Cfab$b_org] EQL fab$c_rel ! If the file has relative organization, 
3; 4 964 & THEN 
3; 4 965 BEGIN 
; 435 0966 input_fab Cfab$l_sts] = : Report an error by loading a special 
3 0967 copy$msg_numBer ( : error code into the RMS status field of 
: 437 e454 msg$_relconcat);! the input FAB. 
; 438 096 input fab Cfab$t_stv) = 0; : Clear the secondard RMS status value. 
; 439 0970 copy$inopn_err ( ' Call the open error action routine 
; 440 097 - input. fab); ; with the address of the input FAB block. 
3; 441 0972 5 wildcard_active = FALSE; ! Turn off the WILDCARD_ACTIVE flag. 
; 44 0975 5 RETURN no_file; ! Return an error message to the caller. 
; 44 0974 4 EMD; 
: 444 0975 4 7 ; : | 
3 6445 0976 4 IF .input_fab Cfab$b_org] EQL fab$c_idx ! If this is an indexed file organization, 
3: 446 0977 4 THEN 
3 447 0978 5 BEGIN : construct a similar error. 
: 448 0979 5 input_fab Cfab$l_sts] = 
3 449 0980 5 cOpy$msg_number ( 
; 450 0981 5 msg$_idxconcat); 
3; «451 0982 5 input_fab Cfab$l_stv] = 0; 
: oog 0983 5 copy$inopn_err ( | 
3; «645 0984 5 - input_ fab); 
> 454 0985 5 wildcard_active = FALSE; 
3: 455 0986 5 RETURN no_file; 
> 456 0987 4 END; 
: 457 0988 4 : 
; 458 0989 4 IF .input_fab Cfab$b_org] EQL fab$c_hsh ! If this is a hashed file organization, 
3 459 0990 4 THEN eo 
; 460 0991 5 BEGIN H construct a similar error. 
: 461 bad : input_fab Cfab$l_sts] = 
3 $66 099 coOpy$msg_number ( | 
3; 46 0994 5 msg$_hashconcat); 
> 464 0995 5 input_fab Cfab$l_stv] = 0; 
3: 465 O38 2 copy$inopn_err ( 
; 99 s Input fab); 
3; 467 0998 5 wildcard_active = FALSE; 
: 468 0999 5 RETURN no_file; 
: 469 1000 4 END; 
: 470 1001 4 
oh it a 
Pig Ne fc om 
: 475 1006 ' 
; 476 1 !' Return with success status code. 
3: 477 1 08 : 
3; «478 100 


COPYSEMAN 

v04-000 

; 479 101 

; 480 101 
48) 101 

0001 0080 0000 0 

0002 0040 0001 0 


0006 0000 0003 0 


51 


0022 


RETURN ok; 
END; 


—rnr 


- TITLE 
- IDENT 


~PSECT 


P.AAA: .WORD 


00000 
00014 
00028 


DECISION_TABLE= 
«EXTRN 


So 
oOo 


PDO MO Iwwmowo ovo 
MUONS PNIOOPOMMO 
SOoooooooooooooo°oo 
SoOoooooooooooooocoo 
ole leleoleololeleleleolelololeololol—) 
WWPRIPOININPINIP) 2 2 | — —CO00O 


04 


SUMIVIVI DS IW 
o-"W OOnn = 
—b 
wn 


62 


oO 
™ 
Of NO DOO —-MDWOLOM ANNO 


nr 
AM 


FSOPMAOOCOOCOUMM  ODWOPAOO 
NSIMMUN & NOWWINONMO Ns 


oo 
coo 


0101 042 4$: 


MOVZBL 
MOVZWL 


20 —DOSOWOWOC 
abeaiealitl® 2 oe mal kes mal 
WOo—0000—00—00— > 


CoOoOoooooocooo 


ao» —coo— 0000 00 
Sooooooooooo 


! Return successfully. | 


peat Bliss-32 V4.0-742 
COPY. SRCICOPYSEMAN.B32;1 


COPYSEMAN 
\V04-000\ 


at ues NOEXE ,2 
ies tHe * 3 


. 3 . 190, oe 
gs, » ti ce 4 P 


168s 44 105° 88. ; 


OCPRES, 
OPYSINOPN_ERR 


SCODES ,NOWRT,2 
Sevatin crits Save R2,R3,R4 


COPYSSEM_STA TUS, R4 
DECISION TABLE, DECIS_TBL_PTR 
PUT FAB, RO- 


#2, 4( 0) 
astatT 


TUS 
CECIS fBL PTR). R3 
R3, R3 


R3, RI 
#0. #16, (DECIS_TBL_PTR), RI 


#4, DECIS TBL_PTR 
(DECIS_ TBC_PTR) 


20D e: -TBL_PTR), #0, #6 


7 COPYSSEM_STATUS+1 
COPYSSEM_STATUS+1 
COPYSSEM_STATUS+1 
‘ egaonsunes 


MESS 


oOooooooooo 
Ve LSS 
rRwo-—— 


Vn 


#99 
#4250, 


SC3p) 


RE ae 
v04-000 


; Routine Size: 


237 bytes, 


0000G CF 
000000006 90 
0 


0000G CF 
08 A2 


0000G CF 
02 


Routine Base: 


14 | 

1$-¢ -1984 42:04 AX-11 Bliss-32 V4.0-742 Page 15. 

Ve-8b- 1984 12:14:19 Leber SRCIEOPYSEMAN Gos OF a) | 

1 FB 069 CALLS #1, COPYSMSG_NUMBER ; 

DD 6 PUSHL R : 

FB 0 CALLS #2, L 1BSSIGNAL : | 

BA OOOTA oo i 

08 gs 0078 10$:  BISB2 #8, COPYSSEM_STATUS+ + 0932 

0 1 OOO7F 11$: BBC #3, COPYSCLI-STATUS, 12$ + 0941 

1 88 00085 8182 1, COPYSSEM~STATUS+ + 0944 

08 8A 00089 BICB2 #8. COPYSSEM~STATUS+ + 0945 

01 AS E8 0008D 12$:  BLBS COPY$SEM STATUS+1, 1 + 0953 

o1 EO 0091 BBS 1, COPYSSEM_STATUS+#2, 13$ + 0956 

: @ 0096 BBS #1, COPYSSEM-STATUS+1. 13$ + 0957 

04 £0 00098 BBS #4; COPYSSEM"STATUS, 13$ + 0959 

00006 CF £9 0009F BLBC CObySCL STATUS, 17$ + 0960 

08 AC DO O00A4 13$:  MOVL T FAB, R2 + 0963 
1D Ag 91 0008 CMPB SCROT a #16 F 
07 12 OOOAC BNE : 

1142 BF 3¢ OOOAE MOVZWL #4418, -(SP) + 0967 
18 11 0008 BRB : 

1D A2 91 000B5 148:  CMPB 29(R2), #32 : 0976 
0? 12 00089 BNEQ 15$ : 

113A BF 3C 000BB MOVZWL #4410, -(SP) > 0980 
0B 11 000C0 BR 6$ : 

1D A2 91 000C2 158: CHPB 29(R2), #48 : 0989 
1E 12 000C6 BN : 

11DA BF. 3C.:000CB ROVZUL \ #4570, + 0993 
01 FB OO0CD 16$: CALLS “#1, Obpysase _NUMBER : 
50 DO 000D2 MOV 8(R2) : 

0c ag D4 90006 CLRL (R2) + 0995 

52 DD 00009 PUSHL na : 0997 
01 FB 000DB CALLS #1, \ COPYSINOPN_ERR : 

20 8A 000EO BICB2 i COPY$SEM_STATUS+2 + 0998 

04 11 OO0E4 BRB : 0999 

01 DO 000E6 178:  — MOVL rm : 1010 
04 000E9 RET : 

50 D4 OOOEA 18$:  CLRL RO \ > 1012 
04 OOOEC RET \ ; 

SCODES + 0000 \ 


; Compi 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:COPYSEMAN/OBJ=O0BJ$:COPYSEMAN MSRC$:COPYSEMAN/UPDATE=(ENH$ : COPYSEMAN) 


237 code + 60 data bytes 
00: 38. 1 
Lexemes/CPU-Min: 33456 


emery Used: 135 pages 
ation Complete 


a 
un Time 
Elopsed fies: 


; Lines/CPU Min: 


14 
COPY SEMAN 18. $ep-1984 23:42:04 AX-11 Bliss-32 V4.0-742 Page 16 
v06~000 1a28ebi 198 F2:72:99 — Lohey sBelESprseman asses ~ 
483 1013. 1 END 
484 1014 0 ELUDOM 
| 
.EXTRN LIBSSIGNAL 
PSECT SUMMARY | 
Name Bytes Attributes | 
SPLITS 60 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOPIC AL IGN(33 
SCODES 289 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ! 
| 
Library Statistics | 
eerenee Symbols oooeooee Pages Processing | 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 52 0 581 00:01.0 


yyy 41 en 
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